home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Kurzor toy / Zdroják / Unit1.pas < prev    next >
Pascal/Delphi Source File  |  2005-02-06  |  4KB  |  170 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, Buttons;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     ListBox1: TListBox;
  12.     cas: TTimer;
  13.     Button1: TButton;
  14.     Button2: TButton;
  15.     Label1: TLabel;
  16.     promitac: TTimer;
  17.     Button3: TButton;
  18.     Button4: TButton;
  19.     BitBtn1: TBitBtn;
  20.     Label2: TLabel;
  21.     CheckBox1: TCheckBox;
  22.     CheckBox2: TCheckBox;
  23.     Button5: TButton;
  24.     procedure casTimer(Sender: TObject);
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure Button1Click(Sender: TObject);
  27.     procedure Button2Click(Sender: TObject);
  28.     procedure Button3Click(Sender: TObject);
  29.     procedure Button4Click(Sender: TObject);
  30.     procedure promitacTimer(Sender: TObject);
  31.     procedure BitBtn1Click(Sender: TObject);
  32.     procedure Button5Click(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. var
  40.   Form1: TForm1;
  41.   jop,jol:boolean;
  42.   krok:integer;
  43. implementation
  44.  
  45. uses Unit2;
  46.  
  47. {$R *.DFM}
  48.  
  49. function pozice:string;
  50. var t:tpoint;
  51. begin
  52. getcursorpos(t);
  53. pozice:=inttostr(t.x)+','+inttostr(t.y);
  54. end;
  55.  
  56. function getpozice(smer:char;pozice:string):integer;
  57. var onklik:string;
  58.     dwExtraInfo,dwData: Cardinal;
  59. begin
  60. if pos('klik',pozice)<>0 then begin
  61. onklik:=pozice;
  62. delete(pozice,pos('klik',pozice)-1,length(pozice));
  63. if pos('r',onklik)<>0 then begin
  64. mouse_event(MOUSEEVENTF_RIGHTDOWN,getpozice('x',pozice),getpozice('y',pozice),dwData,dwExtraInfo);
  65. mouse_event(MOUSEEVENTF_RIGHTUP,getpozice('x',pozice),getpozice('y',pozice),dwData,dwExtraInfo);
  66. end else begin
  67. mouse_event(MOUSEEVENTF_LEFTDOWN,getpozice('x',pozice),getpozice('y',pozice),dwData,dwExtraInfo);
  68. mouse_event(MOUSEEVENTF_LEFTUP,getpozice('x',pozice),getpozice('y',pozice),dwData,dwExtraInfo);
  69. end;
  70. end else
  71. case smer of
  72. 'x':getpozice:=strtoint(copy(pozice,0,pos(',',pozice)-1));
  73. 'y':getpozice:=strtoint(copy(pozice,pos(',',pozice)+1,length(pozice)));
  74. end;
  75. end;
  76.  
  77. procedure TForm1.casTimer(Sender: TObject);
  78. begin
  79.  
  80. if (GetAsyncKeyState(1)<>0)and(jol=false)
  81. then begin
  82. listbox1.Items.add(pozice+'lklik');
  83. jol:=true;
  84. end else
  85. if not(GetAsyncKeyState(1)<>0) then
  86. jol:=false;
  87.  
  88. if (GetAsyncKeyState(2)<>0)and(jop=false)
  89. then begin
  90. listbox1.Items.add(pozice+'rklik');
  91. jop:=true;
  92. end else
  93. if not(GetAsyncKeyState(2)<>0) then
  94. jop:=false;
  95.  
  96. listbox1.items.add(pozice);
  97.  
  98. if (GetAsyncKeyState(ord('K'))<>0) then button2.click;
  99. end;
  100.  
  101. procedure TForm1.FormCreate(Sender: TObject);
  102. begin
  103. jol:=false;
  104. jop:=false;
  105. krok:=0;
  106. end;
  107.  
  108. procedure TForm1.Button1Click(Sender: TObject);
  109. begin
  110. cas.enabled:=true;
  111. button1.enabled:=false;
  112. button2.enabled:=true;
  113. button3.enabled:=false;
  114. end;
  115.  
  116. procedure TForm1.Button2Click(Sender: TObject);
  117. begin
  118. cas.enabled:=false;
  119. button2.enabled:=false;
  120. button1.enabled:=true;
  121. button3.enabled:=true;
  122. end;
  123.  
  124. procedure TForm1.Button3Click(Sender: TObject);
  125. begin
  126. promitac.enabled:=true;
  127. button3.enabled:=false;
  128. button4.enabled:=true;
  129. if checkbox1.checked then form1.hide;
  130. end;
  131.  
  132. procedure TForm1.Button4Click(Sender: TObject);
  133. begin
  134. promitac.enabled:=false;
  135. krok:=0;
  136. button4.enabled:=false;
  137. button3.enabled:=true;
  138. end;
  139.  
  140. procedure TForm1.promitacTimer(Sender: TObject);
  141. var pozice:string;
  142. begin
  143. pozice:=listbox1.items[krok];
  144. setcursorpos(getpozice('x',pozice),getpozice('y',pozice));
  145. inc(krok);
  146. if (listbox1.items.count-1)=krok then
  147. if checkbox2.checked then
  148. krok:=0
  149. else begin
  150. promitac.enabled:=false;
  151. krok:=0;
  152. form1.show;
  153. button3.enabled:=true;
  154. button4.enabled:=false;
  155. end;
  156. end;
  157.  
  158. procedure TForm1.BitBtn1Click(Sender: TObject);
  159. begin
  160. form2.showmodal;
  161. end;
  162.  
  163. procedure TForm1.Button5Click(Sender: TObject);
  164. begin
  165. listbox1.Clear;
  166. button3.enabled:=false;
  167. end;
  168.  
  169. end.
  170.